; Music of Backtro Hack Intro (2006) (Parasites)
; Ripped by Megachur the 31/01/2009

	write "BACKTRHI.BIN"

music_date_rip	equ &1f19
music_adr	equ &a500
first_theme	equ 0	; 0 -> 0
last_theme	equ 0

	read "music_header_v1_0.asm"

	jp la635	; init music
;
.real_play_music
;
	ld hl,la748
	ld a,(hl)
	dec a
	jp nz,la5c0
	ld (hl),#0c
	inc hl
	ld a,(hl)
	dec a
	jr nz,la540
	ld e,l
	ld d,h
	inc hl
	ld c,(hl)
	inc hl
	ld b,(hl)
	ld a,(bc)
	or a
	jr nz,la520
	ld bc,la793
	ld a,(bc)
.la520
	ex de,hl
	ld (hl),a
	inc hl
	inc bc
	ld a,c
	add #06
	ld (hl),a
	inc hl
	ld a,b
	adc #00
	ld (hl),a
	ld hl,la74c
	call la555
	ld hl,la754
	call la555
	ld hl,la75c
	call la555
	ld a,(hl)
.la540
	ld (hl),a
	ld hl,la74c
	call la56b
	ld hl,la754
	call la56b
	ld hl,la75c
	call la56b
	jr la5c1
.la555
	ld a,(bc)
	inc bc
	ld (hl),a
	inc hl
	ld a,(bc)
	inc bc
	add a
	add #f2
	ld e,a
	ld a,#a8
	adc #00
	ld d,a
	ld a,(de)
	inc de
	ld (hl),a
	inc hl
	ld a,(de)
	ld (hl),a
	ret
.la56b
	ld b,(hl)
	inc hl
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld a,(de)
	inc de
	or a
	jr z,la587
	dec a
	jr z,la58b
	dec a
	jr nz,la596
	ld a,(de)
	inc de
	ld (hl),d
	dec hl
	ld (hl),e
	ld bc,#0006
	add hl,bc
	dec a
	ld (hl),a
	ret
.la587
	ld (hl),d
	dec hl
	ld (hl),e
	ret
.la58b
	ld (hl),d
	dec hl
	ld (hl),e
	inc hl
	inc hl
	ld (hl),a
	inc hl
	inc hl
	inc hl
	ld (hl),a
	ret
.la596
	add b
	ld b,a
	ld a,(de)
	inc de
	ld (hl),d
	dec hl
	ld (hl),e
	inc hl
	inc hl
	ld (hl),b
	inc hl
	ld b,a
	and #f0
	rrca
	rrca
	rrca
	add #77
	ld e,a
	ld a,#aa
	adc #00
	ld d,a
	ld a,(de)
	inc de
	ld (hl),a
	inc hl
	ld a,(de)
	inc de
	ld (hl),a
	inc hl
	inc hl
	ld a,b
	and #0f
	jr z,la5bf
	dec a
	ld (hl),a
.la5bf
	ret
.la5c0
	ld (hl),a
.la5c1
	ld hl,la74f
	call la659
	ld hl,la76d
	ld (hl),a
	ld a,b
	rrca
	rrca
	dec hl
	ld (hl),b
	dec c
	jr nz,la5d7
	ld (la766),de
.la5d7
	ld hl,la757
	call la659
	ld hl,la76e
	ld (hl),a
	ld a,b
	rrca
	dec hl
	dec hl
	or (hl)
	ld (hl),a
	dec c
	jr nz,la5ee
	ld (la768),de
.la5ee
	ld hl,la75f
	call la659
	ld hl,la76f
	ld (hl),a
	ld a,b
	dec hl
	dec hl
	dec hl
	or (hl)
	xor #38
	ld (hl),a
	dec c
	jr nz,la607
	ld (la76a),de
.la607
	ld hl,la766
	ld de,#0600
	call la613
	ld de,#0407
.la613
	ld bc,#f782
	out (c),c
	ld c,#80
	ld a,#c0
	dec b
.la61d
	out (c),a
	dec b
	dec b
	out (c),e
	inc e
	inc b
	inc b
	defb &ed,&71	;out (c),0
	dec b
	outi
	inc b
	inc b
	out (c),c
	dec d
	jr nz,la61d
	defb &ed,&71	;out (c),0
	ret
;
.init_music
.la635
;
	ld hl,la6b3
	ld de,#0506
	call la613
	ld hl,la6b8
	ld de,la6d0
	ld a,#3c
.la646
	ld c,(hl)
	inc hl
	ld b,(hl)
	inc hl
	inc bc
	srl b
	rr c
	ex de,hl
	ld (hl),c
	inc hl
	ld (hl),b
	inc hl
	ex de,hl
	dec a
	jr nz,la646
	ret
.la659
	ld a,(hl)
	inc hl
	or a
	ld c,#00
	jr z,la6a5
	ld e,(hl)
	inc hl
	ld d,(hl)
	push hl
	ex de,hl
	add (hl)
	inc hl
	add a
	add #b8
	ld c,a
	ld a,#a6
	adc #00
	ld b,a
	ld a,(bc)
	inc bc
	add (hl)
	inc hl
	ld e,a
	ld a,(bc)
	adc (hl)
	inc hl
	ld d,a
	ld a,(hl)
	inc hl
	ld b,a
	and #c0
	jr z,la695
	jp p,la68f
	pop hl
	dec hl
	dec hl
	xor a
	ld (hl),a
	inc hl
	inc hl
	inc hl
	ld (hl),a
	ld b,a
	ld c,a
	ret
.la68f
	ld a,(hl)
	add l
	ld l,a
	jr c,la695
	dec h
.la695
	ld a,b
	and #2f
	ld c,l
	ld b,h
	pop hl
	ld (hl),b
	dec hl
	ld (hl),c
	inc hl
	inc hl
	ld (hl),a
	ld c,#01
	jr la6a8
.la6a5
	inc hl
	inc hl
	ld a,(hl)
.la6a8
	and #20
	ld b,a
	ld a,(hl)
	and #0f
	inc hl
	sub (hl)
	ret nc
	xor a
	ret
.la6b3
	db #00,#3f,#00,#00,#00
.la6b8
	dw #0777,#070c,#06a7,#0647
	dw #05ed,#0598,#0547,#04fc
	dw #04b4,#0470,#0431,#03f4
.la6d0
	dw #0000,#0000,#0000,#0000
	dw #0000,#0000,#0000,#0000
	dw #0000,#0000,#0000,#0000
	dw #0000,#0000,#0000,#0000
	dw #0000,#0000,#0000,#0000
	dw #0000,#0000,#0000,#0000
	dw #0000,#0000,#0000,#0000
	dw #0000,#0000,#0000,#0000
	dw #0000,#0000,#0000,#0000
	dw #0000,#0000,#0000,#0000
	dw #0000,#0000,#0000,#0000
	dw #0000,#0000,#0000,#0000
	dw #0000,#0000,#0000,#0000
	dw #0000,#0000,#0000,#0000
	dw #0000,#0000,#0000,#0000
.la748
	db #01,#01
	dw la770
.la74f equ $ + 3
.la74c
	db #00,#00,#00,#00,#00,#00,#00,#00
.la757 equ $ + 3
.la754
	db #00,#00,#00,#00,#00,#00,#00,#00
.la75f equ $ + 3
.la75c
	db #00,#00,#00,#00,#00,#00,#00,#00
.la76a equ $ + 6
.la768 equ $ + 4
.la766 equ $ + 2
	db #00,#00,#00,#00,#00,#00,#00,#00
.la76f equ $ + 3
.la76e equ $ + 2
.la76d equ $ + 1
	db #00,#00,#00,#00
.la770
	db #10,#00,#02,#f4,#0e,#00,#00,#10
	db #00,#01,#00,#00,#00,#02,#10,#03
	db #01,#03,#01,#00,#02,#10,#05,#01
	db #05,#01,#00,#02,#10,#07,#01,#07
.la793 equ $ + 3
	db #01,#00,#0e,#10,#00,#01,#00,#04
	db #00,#04,#10,#fe,#01,#00,#05,#00
	db #05,#10,#02,#03,#00,#06,#00,#06
	db #10,#07,#01,#00,#09,#00,#09,#10
	db #00,#01,#00,#0a,#fa,#02,#10,#00
	db #02,#00,#0a,#03,#01,#10,#05,#01
	db #00,#0c,#fa,#02,#10,#00,#0e,#00
	db #0d,#07,#01,#10,#00,#01,#00,#0f
	db #00,#02,#10,#03,#01,#03,#0f,#00
	db #02,#10,#05,#01,#05,#0f,#00,#02
	db #10,#00,#02,#07,#01,#fa,#0e,#10
	db #00,#0a,#00,#04,#f4,#04,#10,#03
	db #0a,#00,#05,#f4,#05,#10,#00,#0c
	db #00,#06,#f4,#06,#10,#00,#0d,#00
	db #09,#f4,#09,#08,#03,#0e,#f9,#0e
	db #00,#00,#08,#fe,#0e,#f9,#0e,#00
	db #00,#10,#00,#01,#00,#07,#0c,#07
	db #10,#fe,#01,#fe,#07,#0a,#07,#10
	db #03,#01,#03,#07,#03,#07,#10,#07
	db #01,#07,#01,#07,#07,#10,#00,#01
	db #00,#02,#00,#0a,#10,#03,#07,#00
	db #0a,#00,#0a,#10,#05,#01,#00,#04
	db #00,#02,#10,#07,#07,#00,#09,#00
	db #0e,#10,#00,#02,#00,#08,#00,#08
	db #10,#00,#02,#fe,#07,#fe,#01,#10
	db #03,#08,#03,#08,#00,#02,#10,#00
	db #0e,#07,#07,#07,#01,#10,#00,#07
	db #0c,#07,#00,#00,#10,#03,#01,#00
	db #0a,#00,#02,#10,#00,#00,#05,#07
	db #11,#07,#10,#07,#01,#00,#0d,#00
	db #0e,#10,#07,#02,#05,#02,#00,#00
	db #10,#f4,#04,#00,#08,#00,#0a,#10
	db #fe,#01,#fe,#0f,#00,#02,#10,#03
	db #08,#03,#01,#00,#00,#10,#f4,#09
	db #07,#0f,#00,#0e,#10,#00,#07,#00
	db #0a,#f4,#0a,#10,#03,#07,#00,#0b
	db #f4,#0b,#10,#05,#07,#00,#0c,#f4
	db #0c,#10,#07,#01,#00,#0d,#f4,#0d
	db #10,#00,#01,#00,#0f,#00,#0e,#08
	db #03,#01,#03,#0f,#03,#0f,#08,#05
	db #01,#05,#0f,#00,#02,#10,#00,#01
	db #f4,#0f,#00,#00,#08,#03,#01,#f7
	db #0f,#03,#0f,#08,#05,#01,#f9,#0f
	db #00,#02,#10,#00,#0e,#00,#0f,#00
	db #00,#00
	dw la912,la922,la93d,la954
	dw la96f,la986,la99d,la9b1
	dw la9c7,la9df,la9f5,laa08
	dw laa1b,laa31,laa46,laa5d
.la912
	db #01,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.la922
	db #1a,#21,#00,#26,#23,#01,#15,#11
	db #00,#0e,#10,#00,#0e,#22,#1a,#23
	db #26,#24,#0e,#13,#15,#11,#0e,#13
.la93d equ $ + 3
	db #12,#10,#00,#21,#43,#00,#21,#42
	db #00,#1d,#41,#00,#00,#21,#43,#00
	db #21,#42,#00,#21,#40,#1d,#41,#00
.la954 equ $ + 2
	db #00,#00,#1a,#31,#00,#26,#33,#01
	db #15,#11,#00,#0e,#10,#00,#0e,#32
	db #1a,#33,#26,#34,#0e,#13,#15,#11
.la96f equ $ + 5
	db #0e,#13,#11,#10,#00,#26,#10,#00
	db #2d,#10,#00,#32,#11,#00,#32,#13
	db #00,#02,#02,#00,#02,#01,#00,#2a
.la986 equ $ + 4
	db #11,#00,#00,#00,#2b,#11,#00,#2d
	db #10,#00,#2d,#10,#00,#26,#10,#00
	db #02,#02,#00,#02,#01,#00,#26,#10
.la99d equ $ + 3
	db #00,#00,#00,#2f,#10,#00,#00,#00
	db #34,#10,#00,#32,#10,#00,#32,#10
.la9b1 equ $ + 7
	db #00,#00,#00,#00,#00,#00,#00,#0e
	db #12,#00,#00,#14,#13,#15,#12,#00
	db #00,#00,#12,#12,#00,#00,#19,#13
.la9c7 equ $ + 5
	db #1a,#12,#00,#00,#00,#1a,#10,#1e
	db #10,#21,#10,#00,#26,#10,#23,#10
	db #21,#10,#00,#00,#00,#15,#10,#00
.la9df equ $ + 5
	db #00,#21,#10,#00,#00,#31,#10,#00
	db #00,#00,#00,#00,#2f,#10,#00,#2d
	db #10,#00,#2b,#10,#00,#2a,#10,#00
.la9f5 equ $ + 3
	db #28,#10,#00,#26,#10,#00,#00,#00
	db #26,#10,#00,#00,#00,#2d,#10,#00
.laa08 equ $ + 6
	db #00,#00,#00,#00,#00,#00,#2d,#10
	db #00,#00,#00,#2d,#10,#00,#00,#00
	db #26,#10,#00,#00,#00,#00,#00,#00
.laa1b equ $ + 1
	db #00,#2d,#10,#00,#00,#2b,#10,#26
	db #10,#00,#00,#2b,#10,#2d,#10,#00
.laa31 equ $ + 7
	db #00,#00,#00,#00,#00,#21,#10,#2a
	db #10,#00,#00,#2a,#10,#28,#10,#00
	db #00,#00,#26,#10,#00,#00,#00,#21
.laa46 equ $ + 4
	db #10,#00,#00,#00,#12,#42,#00,#00
	db #00,#15,#44,#00,#00,#00,#1e,#42
	db #00,#00,#00,#24,#41,#22,#43,#20
.laa5d equ $ + 3
	db #44,#1f,#45,#26,#11,#1a,#12,#2a
	db #11,#1e,#12,#2d,#11,#21,#12,#31
	db #11,#25,#12,#32,#11,#00,#31,#10
	db #00,#2d,#10,#00,#2a,#10,#00
	dw laa81,laae2,lab43,laba4
.laa81
	db #0c,#00,#00,#2b,#00,#00,#00,#0d
	db #0c,#01,#00,#0e,#00,#02,#00,#0e
	db #00,#03,#00,#0d,#00,#02,#00,#0d
	db #00,#01,#00,#0c,#00,#00,#00,#0c
	db #00,#00,#00,#0a,#00,#00,#00,#0a
	db #00,#00,#00,#0a,#00,#00,#00,#0a
	db #00,#00,#00,#0a,#00,#ff,#ff,#0a
	db #00,#fe,#ff,#0a,#00,#ff,#ff,#0a
	db #00,#ff,#ff,#0a,#00,#00,#00,#0a
	db #00,#00,#00,#0a,#00,#01,#00,#0a
	db #00,#02,#00,#0a,#00,#01,#00,#0a
	db #00,#01,#00,#0a,#00,#00,#00,#4a
.laae2 equ $ + 1
	db #cc,#0c,#00,#00,#2c,#00,#00,#00
	db #0e,#04,#01,#00,#0f,#07,#02,#00
	db #0f,#00,#03,#00,#0f,#04,#02,#00
	db #0f,#07,#01,#00,#0e,#00,#00,#00
	db #0e,#04,#00,#00,#0d,#07,#00,#00
	db #0b,#00,#00,#00,#0b,#00,#00,#00
	db #0a,#00,#00,#00,#0a,#00,#ff,#ff
	db #0a,#04,#fe,#ff,#0a,#04,#ff,#ff
	db #0a,#04,#ff,#ff,#0a,#07,#00,#00
	db #0a,#07,#00,#00,#0a,#04,#01,#00
	db #0a,#04,#02,#00,#0a,#00,#01,#00
	db #0a,#00,#01,#00,#0a,#00,#00,#00
.lab43 equ $ + 2
	db #4a,#cc,#0c,#00,#00,#2c,#00,#00
	db #00,#0e,#03,#01,#00,#0f,#07,#02
	db #00,#0f,#00,#03,#00,#0f,#03,#02
	db #00,#0f,#07,#01,#00,#0e,#00,#00
	db #00,#0e,#03,#00,#00,#0d,#07,#00
	db #00,#0b,#00,#00,#00,#0b,#00,#00
	db #00,#0a,#00,#00,#00,#0a,#00,#ff
	db #ff,#0a,#03,#fe,#ff,#0a,#03,#ff
	db #ff,#0a,#03,#ff,#ff,#0a,#07,#00
	db #00,#0a,#07,#00,#00,#0a,#03,#01
	db #00,#0a,#03,#02,#00,#0a,#00,#01
	db #00,#0a,#00,#01,#00,#0a,#00,#00
.laba4 equ $ + 3
	db #00,#4a,#cc,#08,#49,#00,#2f,#09
	db #49,#00,#2e,#04,#e1,#ff,#0f,#04
	db #e1,#ff,#0e,#04,#f0,#ff,#0e,#03
	db #f0,#ff,#0d,#03,#28,#00,#0b,#01
	db #28,#00,#0b,#02,#20,#00,#09,#ff
	db #20,#00,#09,#00,#10,#00,#07,#fe
	db #10,#00,#07,#00,#00,#00,#80,#00
	db #00
;
.play_music	; added by Megachur
;
	call real_play_music
	jp real_play_music

;
.game_name
	db "Backtro Hack Intro",0
.game_year
	db "2006",0
.game_publisher
	db "Parasites",0
.music_author
	db "MadRam",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
